home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
TPUG Xtras
/
Xtras
/
progdisk.d64
/
super mastermind
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-02-07
|
11KB
|
388 lines
1 GOTO910
2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X`
3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`
4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`
5 [153]"hhhhhhh`
6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`
7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`
35 IFUW=0ANDNC=0THENSYSUU,15
36 IF(UW=0ANDNC=1)ANDUZ=1THENSYSUU,15
40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
45 GETUI$:IFUI$=""THEN45
50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO70
55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157] [157][157]";:GOTO45
60 IFUR=ULTHEN45
65 GOSUB95:UR$=UR$+UI$:IFNC=1THENGOSUB7000
67 PRINTUI$;:GOTO45
70 IFUR$=UX$THENPRINT"[157] ";:GOTO145
75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
80 UR$=LEFT$(UR$,UI):PRINT:RETURN
95 IFLEN(US$)=0THEN110
100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
105 RETURN
110 IFUA=46THENRETURN
115 IFUA=32ANDUR<>0THENRETURN
120 IFUA>47ANDUA<58THENRETURN
125 IFUA>64ANDUA<91THENRETURN
130 IFUA<193ORUA>218THENUI$="":RETURN
135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
140 RETURN
145 GOSUB170:POKE251,0:POKE252,US/256:POKE253,0:POKE254,UF:SYSUV:ZX=PEEK(UX):ZY=PEEK(UY)
147 IFUW=0THENPOKE253,0:POKE254,200:POKE251,0:POKE252,216:SYSUV
150 UZ=1:UV%=PEEK(UT):GOTO300
155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:IFUW=0THENPOKEUY,ZY:POKEUX,ZX
156 IFUW=0THENPOKE253,0:POKE254,216:POKE251,0:POKE252,200:SYSUV
160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV
165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
170 U1%=PEEK(U1):U2%=PEEK(U2):U3%=PEEK(U3):U4%=PEEK(U4)
175 UJ$=US$:UK$=UG$:UL$=UT$:UJ=UP:UK=UL:RETURN
300 PRINT"[147]":POKEUT,UU%:IFUW=0THENPOKEUY,0:POKEUX,13:IFNC=1THENPRINT"[155]";
305 PRINT" SUPER MASTERMIND"
310 PRINT" --------------------------------"
315 PRINT" [158]1. INSTRUCTIONS PLEASE[155]"
320 PRINT" 2. BEGIN THE GAME"
323 PRINT" 3. PLEASE END THE GAME"
335 PRINT" --------------------------------"
340 PRINT" PRESS A NUMBER KEY (1,2 OR 3) [146][157] [157]";
343 PRINT" [158]...AND PRESS RETURN[155]":PRINT"[145][145][145]" TAB(34)
345 UL=1:US$="123"
347 GOSUB35:US$=""
350 ONVAL(UR$)GOSUB400,1000,390
355 GOTO300
370 IFUZ=1THENSYSUP%:GOTO155
375 RETURN
390 SYSUE:PRINT"[154][147]":IFUW=0THENPOKEUY,6:POKEUX,14:SYSUU,14
395 CLR:END
400 PRINT"[147]":POKEUT,UL%:IFUW=0THENPOKEUY,0:POKEUX,13
405 UT$=" [158][211]UPER[205]ASTERMIND[155]":UH=1:UP=0:UG$="[158][201]NSTRUCTIONS":GOSUB850
408 PRINT"[158] [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
410 PRINT" [158]([211][213][208][197][210][160][160][205][193][211][212][197][210][205][201][206][196][158])"
411 PRINT"[158] [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][155]"
412 PRINT" [201]N THE GAME OF [211]UPER [205]ASTERMIND, "
413 PRINT" THE COMPUTER CREATES A CODE MADE UP OF"
414 PRINT" FIVE DIFFERENT COLORS WHICH YOU, THE "
415 PRINT" PLAYER MUST GUESS. ([196][197][196][213][195][212][201][214][197][160][204][207][199][201][195])":PRINT" [212]HESE ";
416 PRINT"COLORS ARE CHOSEN BY TYPING THE":PRINT" LETTER ENCLOSED IN BRACKETS:"
417 PRINT" [210]ED ([210][155]) [207]RANGE([150][207][155]) [217]ELLOW([158][217][155]) [199]REEN ([199][155])";
418 PRINT" [194]LUE ([194][155]) [212]AN ([152][212][155]) [208]URPLE([156][208][155]) [215]HITE ([215][155])";
419 PRINT" [194]LANK (-)":GOSUB835:GOSUB850
420 PRINT" [217]OU MUST SELECT A FIVE COLOR "
421 PRINT" COMBINATION AND [210][197][212][213][210][206][146] TO CONTINUE."
422 PRINT" [197]ACH TIME YOU MAKE A GUESS, THE "
423 PRINT" COMPUTER SHOWS YOU HOW CLOSE YOU ARE "
424 PRINT" TO GUESSING THE CODE. [193] WHITE SPOT "
425 PRINT" INDICATES A CORRECT COLOR. [193] BLUE "
426 PRINT" CIRCLE INDICATES A CORRECT COLOR AT "
427 PRINT" A CORRECT LOCATION IN THE CODE."
428 PRINT" [158][197]XAMPLE SCORES FOLLOW:[155]":GOSUB835
429 GOSUB850:PRINT"[147]"CHR$(142)
430 PRINT" [209][155] MEANS ONE COLOR ONLY IS CORRECT."
431 PRINT" IT IS IN THE WRONG LOCATION."
432 PRINT" [154][215][155] MEANS ONE COLOR ONLY IS CORRECT."
433 PRINT" IT IS IN THE CORRECT LOCATION."
435 PRINT" [154][215][215][209][209][155] MEANS TWO CORRECT COLORS IN THE"
436 PRINT" CORRECT LOCATION AND TWO CORRECT"
437 PRINT" COLORS IN THE WRONG LOCATION."
438 PRINT" ONE COLOR GUESSED IS NOT CORRECT.";
439 PRINT" [154][215][215][215][209][209][155] MEANS THREE CORRECT COLORS IN THE";
440 PRINT" CORRECT LOCATION AND TWO CORRECT"
441 PRINT" COLORS IN THE WRONG LOCATION."
442 PRINT" ALL FIVE COLORS ARE CORRECT."
444 PRINT" [154][215][215][215][215][215][155] MEANS ALL FIVE COLORS ARE IN"
445 PRINT" THE CORRECT LOCATION."
446 GOSUB 835:GOSUB 850
447 PRINTCHR$(14)
452 PRINT" [212]HERE ARE THREE LEVELS OF DIFFICULTY"
453 PRINT" AT WHICH YOU MAY PLAY."
454 PRINT" [158][204]EVEL 1:[155] [212]HERE ARE NO BLANKS IN THE"
455 PRINT" CODE AND NO COLOR IS REPEATED.";
456 PRINT" [158][204]EVEL 2:[155] [212]HERE ARE NO BLANKS IN THE"
457 PRINT" CODE AND COLORS ARE REPEATED."
458 PRINT" [158][204]EVEL 3:[155] [194]LANKS MAY BE USED IN THE"
459 PRINT" CODE. [195]OLORS AND/OR BLANKS MAY BE REPEATED."
485 GOSUB835
490 IFUZ=1THENSYSUP%:GOTO155
495 RETURN
500 PRINT"[147]":POKEUT,UL%:IFUW=0THENPOKEUY,2:POKEUX,10
501 UT$=" [205]ASTERMIND":UH=1:UP=0:UG$="[212]EACHER [201]NST":GOSUB850
502 PRINT" [212]O THE BEST OF OUR KNOWLEDGE,"
503 PRINT" THIS PROGRAM IS IN THE PUBLIC"
504 PRINT" DOMAIN. [201]F THIS IS NOT TRUE,"
505 PRINT" PLEASE CONTACT:"
506 PRINT" [195][207][205][205][207][196][207][210][197][160][194][213][211][201][206][197][211][211][160][205][193][195][200][201][206][197][211]"
507 PRINT" 3370 [208]HARMACY [193]VE.
508 [153]" ATNGINCOURT, (null)NTARIO"
509 [153]" LENANADA, (null)1(null) 2(null)4"
510 [153]" (416) 499-4292"
511 UH[178]1:[141]835:[141]850
512 [153]" (null)ROGRAM (null)AME: (null)ASTERMIND"
513 [153]" (null)RITTEN BY : STR$AVID (null)WAIM"
514 [153]" (null)EVISED BY : MID$AN (null)AWCZAK"
515 [153]" (null)HIS PROGRAM WILL RUN ON ANY
516 PRINT" [194][193][211][201][195][160]2.0 [208][197][212] [195]OMPUTER
517 [153]" PEEKATN(null)RIGHT$LEN 4.0 (null)VAL(null)CLOSELENOMPUTER
518 PRINT" 8032 [195][194][205] [195]OMPUTER
519 [153]" LENOMMODORE 64 LENOMPUTER
585 GOSUB835
590 IFUZ=1THENSYSUP%:GOTO155
595 RETURN
700 PRINTUC$"[147]BEFORE RUNNING THIS PROGRAM ON AN 8032
705 [153]" LOAD THE 'CBM 4032' PROGRAM":[128]
800 [153]"LOAD";:[151]UT,UU%:[139]UW[178]0[167][151]UY,1:[151]UX,14
801 [129]I[178]1[164]38:[153]" WAIT";:[130]
802 [129]I[178]1[164]22:[153]"CMD WAIT";:[130]
803 [129]I[178]1[164]37:[153]"CMDCMD WAIT";:[130]
804 [129]I[178]1[164]22:[153]"ONCMD WAIT";:[130]
805 [153]"STEP WAIT
806 PRINT" [146] [146][169]
807 [153]" WAIT TAB((null)WAIT O M M O D O R E
808 PRINT"[223] [146]
809 [153]"EDUCATIONAL
810 PRINT"SOFTWARE
811 [153]"1983
812 PRINTLEFT$(UD$,24);"PRESS SPACE BAR OR WAIT[146]"UC$:UI=0
813 GETUI$:IFUI$<>" "THENUI=UI+1:IFUI<250THEN813
814 GOTO300
835 POKEUN,0:PRINTLEFT$(UD$,24);"PRESS SPACE BAR TO CONTINUE[146]"
840 GETUI$:IFUI$<>" "THEN840
845 RETURN
850 UP=UP+1:PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)"[155]"
855 PRINT" --------------------------------------"
860 IFUH=0THENPRINTLEFT$(UD$,24);LEFT$(UP$,7);"HELP - PRESS H <RETURN>"
865 UH=0:PRINT"":RETURN
875 PRINTLEFT$(UD$,24);" ONE MOMENT PLEASE... ":RETURN
900 UX$="H":US=32768:U1=196:U2=197:U3=198:U4=216:UC=167:UB=1024:UD=1084:UE=1105
901 UT=59468:UU%=12:UL%=14:UP%=1158:UN=158:POKE50003,0:UW=PEEK(50003):UF=PEEK(53)
902 IFUW=0THENUS=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UB=2048:UX=53280:UD=2064:
903 IFUW=0THENUT=53272:UU%=21:UL%=23:UP%=2151:UN=198:UY=53281:UU=2199:UE=2087
904 UC$=CHR$(155):UV=1214:IFUW=0THENUF=196:UV=2238
905 UD$="":UP$=" "
906 IFUW=0THENCL$(1)="":CL$(2)="[129]":CL$(3)="[158]":CL$(4)="":CL$(5)="":CL$(6)="[152]"
907 IFUW=0THENCL$(7)="[156]":CL$(8)="":CL$(9)="[159]"
908 DIMN$(20)
909 RETURN
910 GOSUB900:POKE53280,6:PRINT"[147]":PRINT"[160]":REM SHIFTED SPACE
915 IFPEEK(US+40)<>96THEN700
920 IF(FRE(0)-(SGN(FRE(0))<0)*65536)>500THEN935
925 PRINTUC$"[147]THIS MACHINE DOES NOT HAVE ENOUGH"
930 PRINT"MEMORY TO RUN THIS PROGRAM !":END
935 PRINT"[147]"UC$:IFUW=0THEN965
940 IFUF=60ORUF=108ORUF=124THEN950
945 POKE52,0:POKE53,UF-4:CLR:GOSUB900
950 IFUW=160THENPOKE1103,88:POKE1104,228:POKE1107,85:POKE1111,228:GOTO965
955 IFUW<>1THENPRINT"[147]THIS PGM WILL NOT WORK ON THIS MACHINE!":END
960 POKE1103,49:POKE1104,230:POKE1107,46:POKE1111,230:GOTO965
965 SYSUD
970 GOTO300
1000 IFUZ=1THENSYSUP%:SYSUP%:UZ=0
1001 PRINT"[147]"UC$;:RESTORE:IFUW=0THENPOKEUY,0:POKEUX,0:NC=1
1003 REM << C64 VERSION: JAN SAWCZAK >
1007 IFUW<>0THENFORGX=1TO9:CL$(GX)="":NEXT
1170 DEF FNR(X)=INT(RND(1)*X)+1
1180 L$(1)="R":L$(2)="O":L$(3)="Y"
1190 L$(4)="G":L$(5)="B":L$(6)="T"
1200 L$(7)="P":L$(8)="W":L$(9)="-"
1210 D$=""
1260 REM GET THE LEVEL NUMBER
1261 POKE53280,13:PRINT"[147][158] LEVEL OF DIFFICULTY"
1262 PRINT" 1: FIRST LEVEL"
1264 PRINT" 2: SECOND LEVEL"
1266 PRINT" 3: THIRD LEVEL"
1268 PRINT" AND THEN PRESS RETURN[146][145][145][145][145][145]"
1269 PRINT" ENTER THE LEVEL NUMBER: 1,2 OR 3 ";
1270 US$="123H":UL=1:K9%=1:GOSUB 35:L=VAL(UR$):K9%=0
1280 REM CHECK FOR ZERO (NO GAME)
1290 IF L=0 THEN 1790
1300 POKE UT,UU%
1310 REM MAKE A CODE OF CORRECT LEVEL
1320 PRINT"[147]"
1330 ON L GOSUB 2180,2360,2420
1340 REM ANNOUNCE BEGINNING OF GAME
1350 PRINT"[147] A CODE HAS BEEN CHOSEN:
1360 [153]" YOU HAVE 20 GUESSES.
1370 FORJ8=1TO2500:NEXT
1380 POKE53280,0
1390 GOSUB 2790
1400 FOR N=1 TO 20
1410 REM GET THE GUESS
1420 GOSUB 3124
1430 REM SCORE THE GUESS
1440 REM SCORE LIKE COLORS WHITE
1450 GOSUB 2480
1460 REM SCORE CORRECT PLACEMENT BLACK
1470 GOSUB 2680
1480 REM WRITE THE GUESS AND SCORE
1490 GOSUB 2760
1500 FOR I=1 TO 5
1510 S$(I)=" "
1520 NEXT I
1530 REM IS THE GUESS TOTALLY CORRECT
1540 IF K>5 THEN 1670
1550 NEXT N
1560 REM IF YOU GET TO HERE
1570 GOSUB6000
1580 PRINT""
1590 PRINT,," SORRY, YOU USED"
1600 PRINT,," UP ALL YOUR"
1610 PRINT,," GUESSES.
1620 [153],," BETTER LUCK"
1630 [153],," NEXT TIME."
1640 [153],," CORRECT CODE:"
1650 [153] ,," ";:UI$[178]C$(1):[141]7000:[153]C$(1);
1651 UI$[178]C$(2):[141]7000:[153]C$(2);
1652 UI$[178]C$(3):[141]7000:[153]C$(3);
1653 UI$[178]C$(4):[141]7000:[153]C$(4);
1654 UI$[178]C$(5):[141]7000:[153]C$(5);
1655 [139]UW[178]0[167][153]"CLR";
1657 [153]""
1660 [137] 1740
1670 [143] JACKPOT, YOU GUESSED THE CODE!
1680 [141]6000:[153]""
1690 [153],," CONGRATULATIONS,"
1700 [153],," YOU WON IN"
1710 [153],," "N;"GUESSES"
1720 [143] HOW ABOUT ANOTHER GAME?
1730 [153]
1740 [153],," DO YOU WANT"
1750 [153],," ANOTHER GAME? "
1752 [153],,"SYS Y / N +RETURN ";
1760 US$[178]"YNH":UL[178]1:K9%[178]1:[141]35:B$[178]UR$:K9%[178]0
1775 [139]UW[178]0[167][153]"LIST";
1780 [139] B$[178]"Y" [167] [140]:[137] 1260
1790 NC[178]0:[156]:[141]900:[137]300
1795 [143]
1800 [143]
2180 [143] SUB FOR NO DUPES
2190 [129] I[178]1 [164] 5
2200 C(I)[178][165]R(8)
2210 [130] I
2220 A[178]0
2230 [129] I[178]1 [164] 5
2240 [129] J[178]1 [164] 5
2250 [139] J[179][178]I [167] 2290
2260 [139] C(I)[179][177]C(J) [167] 2290
2270 C(J)[178][165]R(8)
2280 A[178]A[170]1
2290 [130] J
2300 [130] I
2310 [139] A[177]0 [167] 2220
2320 [129] I[178]1 [164] 5
2330 C$(I)[178]L$(C(I))
2340 [130] I
2350 [142]
2360 [143] SUB FOR DUPES
2370 [129] I[178]1 [164] 5
2380 A[178][165]R(8)
2390 C$(I)[178]L$(A)
2400 [130] I
2410 [142]
2420 [143] SUB TO INCLUDE SPACES
2430 [129] I[178]1 [164] 5
2440 A[178][165]R(9)
2450 C$(I)[178]L$(A)
2460 [130] I
2470 [142]
2480 [143] SUB TO SCORE WHITE
2490 K[178]1
2500 [129] I[178]1 [164] 5
2510 P(I)[178]0
2520 [130] I
2530 [129] I[178]1 [164] 5
2540 [129] J[178]1 [164] 5
2550 [139] K[178]1 [167] 2600
2560 L[178]K[171]1
2570 [129] M[178]1 [164] L
2580 [139] J[178]P(M) [167] 2610
2590 [130] M
2600 [139] G$(J)[178]C$(I) [167] 2630
2610 [130] J
2620 [137] 2660
2630 P(K)[178]J
2640 S$(K)[178]"(null)":[139]UW[178]0[167]S$(K)[178]""[170]"(null)"
2650 K[178]K[170]1
2660 [130] I
2670 [142]
2680 [143] SUB TO SCORE BLACK
2690 K[178]1
2700 [129] I[178]1 [164] 5
2710 [139] G$(I)[179][177]C$(I) [167] 2740
2720 S$(K)[178]"(null)":[139]UW[178]0[167]S$(K)[178]"CONT"[170]"(null)"
2730 K[178]K[170]1
2740 [130] I
2750 [142]
2760 [143] WRITE SCORE LINE
2765 [139]UW[178]0[167][153]"";
2770 [153] "";[200](D$,N[170]3);"";S$(1);S$(2);S$(3);S$(4);S$(5)
2775 [139]UW[178]0[167][153]"CLR";
2780 [142]
2790 [143] DRAW PLAYING BOARD
2800 [153]"LOAD ORTANTANTAN=TANTANTANTANTANTAN=TANTANTANTANTAN^"
2810 [153]" (null)CLOSECLOSECLOSE(null)CLOSE CLOSECLOSECLOSECLOSE(null)CLOSECLOSECLOSECLOSECLOSE(null)"
2820 [153]" -TANTANTAN(null)TANTANTANTANTANTAN(null)TANTANTANTANTAN<"
2830 [129] I[178]1 [164] 20
2840 [153]" (null)CLOSECLOSECLOSE(null) CLOSECLOSECLOSECLOSECLOSE(null)CLOSECLOSECLOSECLOSECLOSE(null)"
2850 [130] I
2860 [153]" /TANTANTAN>TANTANTANTANTANTAN>TANTANTANTANTANEXP"
2870 [139] UW[178]0[167][153]"";
2875 [153]"#GUESSSCORES U P E R "
2879 [139] UW[178]0[167][153]"LIST";
2880 [153]
2890 [129] I[178]1 [164] 20
2900 [153]"";I
2910 [130] I
2911 [153]""[163]24);CL$(1);" R RED "
2912 [153][163]24);CL$(2);" O ORANGE "
2913 [153][163]24);CL$(3);" Y YELLOW "
2914 [153][163]24);CL$(4);" G GREEN "
2915 [153][163]24);CL$(5);" B BLUE "
2916 [153][163]24);CL$(6);" T TAN "
2917 [153][163]24);CL$(7);" P PURPLE "
2918 [153][163]24);CL$(8);" W WHITE "
2919 [153][163]24);CL$(9);" - BLANK "
2920 [139]UW[178]0[167][153]"";
2925 [129] I[178]1 [164] 20
2930 [135] N$(I)
2940 [153] [200](D$,I[170]3);[163]19);N$(I)
2950 [130] I
2955 [139] UW[178]0[167][153]"LIST";
2960 [131] "M"," ","A"," ","S"," ","T"," ","E"," ","R"
2970 [131] " ","M"," ","I"," ","N"," ","D"," "
2971 [139]UW[178]0[167][153]"";
2972 [153][200](UD$,22)[163]22)"NEED HELP? SYSTYPE H":[153][163]22)"AND PRESS RETURN.";
2975 [139]UW[178]0[167][153]"CLR";
2980 [142]
3124 SP$[178]"":UR$[178]""
3125 [153] [200](D$,N[170]3);"";[200](SP$,1)" CMDCMDCMDCMDCMD";
3130 US$[178]"PRGBWTYO-H"
3140 UL[178]5
3150 [141]35
3155 [139] [195](UR$)[179]5 [167] 3125
3160 [129] J[178]1 [164] 5
3170 G$(J)[178][202](UR$,J,1)
3180 [130] J
3190 [142]
6000 [153]""[163]24);" "
6010 [153][163]24);" "
6020 [153][163]24);" "
6030 [153][163]24);" "
6040 [153][163]24);" "
6050 [153][163]24);" "
6060 [153][163]24);" "
6070 [153][163]24);" "
6080 [153][163]24);" "
6090 [153][163]24);" "
6100 [153][163]24);" "
6110 [142]
7000 [143] << PRINT OUT COLOURS GUESSED >>
7005 [139]K9%[178]1[167][142]
7010 [139]UI$[178]"R"[167][153]CL$(1);:[142]
7020 [139]UI$[178]"O"[167][153]CL$(2);:[142]
7030 [139]UI$[178]"Y"[167][153]CL$(3);:[142]
7040 [139]UI$[178]"G"[167][153]CL$(4);:[142]
7050 [139]UI$[178]"B"[167][153]CL$(5);:[142]
7060 [139]UI$[178]"T"[167][153]CL$(6);:[142]
7070 [139]UI$[178]"P"[167][153]CL$(7);:[142]
7080 [139]UI$[178]"W"[167][153]CL$(8);:[142]
7090 [139]UI$[178]"-"[167][153]CL$(9);:[142]
7095 [142]